home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Libraries / UMacApp.TPrintHandler.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  5.4 KB  |  211 lines  |  [TEXT/MPS ]
  1. {$P}
  2. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  3. { UMacApp.TPrintHandler.p }
  4. { Copyright © 1985-1990 by Apple Computer, Inc.  All rights reserved. }
  5.  
  6. {--------------------------------------------------------------------------------------------------}
  7. {$S MAPrintingRes}
  8.  
  9. PROCEDURE TPrintHandler.IPrintHandler(itsView: TView);
  10.  
  11.     BEGIN
  12.     fView := itsView;
  13.     fDocument := NIL;
  14.     IEvtHandler(NIL);
  15.     END;
  16.  
  17. {--------------------------------------------------------------------------------------------------}
  18. {$S MANever}
  19.  
  20. FUNCTION TPrintHandler.BreakFollowing(vhs: VHSelect; prevBreak: VCoordinate;
  21.                                       VAR automatic: BOOLEAN): VCoordinate;
  22.  
  23.     BEGIN
  24.     {$IFC qDebug}
  25.     ProgramBreak('BreakFollowing called for non-subclassed Printhandler');
  26.     {$ENDC}
  27.     END;
  28.  
  29. {--------------------------------------------------------------------------------------------------}
  30. {$S MAFields}
  31.  
  32. PROCEDURE TPrintHandler.Fields(PROCEDURE DoToField(fieldName: Str255; fieldAddr: Ptr;
  33.                                                    fieldType: INTEGER));
  34.  
  35.     BEGIN
  36.     DoToField('TPrintHandler', NIL, bClass);
  37.     DoToField('fView', @fView, bObject);
  38.     DoToField('fDocument', @fDocument, bObject);
  39.     DoToField('fDeviceRes', @fDeviceRes, bPoint);
  40.     DoToField('fViewPerPage', @fViewPerPage, bVPoint);
  41.     DoToField('fFocusedPage', @fFocusedPage, bInteger);
  42.     INHERITED Fields(DoToField);
  43.     END;
  44.  
  45. {--------------------------------------------------------------------------------------------------}
  46. {$S MANever}
  47.  
  48. PROCEDURE TPrintHandler.CalcPageStrips(VAR pageStrips: Point);
  49.  
  50.     BEGIN
  51.     {$IFC qDebug}
  52.     ProgramBreak('CalcPageStrips called for non-subclassed Printhandler');
  53.     {$ENDC}
  54.     END;
  55.  
  56. {--------------------------------------------------------------------------------------------------}
  57. {$S MANever}
  58.  
  59. PROCEDURE TPrintHandler.CalcViewPerPage(VAR amtPerPage: VPoint);
  60.  
  61.     BEGIN
  62.     {$IFC qDebug}
  63.     ProgramBreak('CalcViewPerPage called for non-subclassed Printhandler');
  64.     {$ENDC}
  65.     END;
  66.  
  67. {--------------------------------------------------------------------------------------------------}
  68. {$S MANonRes}
  69.  
  70. PROCEDURE TPrintHandler.CheckPrinter;                    {See if there are changed
  71.                                                          printer-configuration parameters which
  72.                                                          need to be absorbed, and if so, absorb
  73.                                                          them}
  74.  
  75.     BEGIN
  76.     END;
  77.  
  78. {--------------------------------------------------------------------------------------------------}
  79. {$S MAPrintingRes}
  80.  
  81. PROCEDURE TPrintHandler.DrawPrintFeedback(area: Rect);
  82. {Draw page-breaks, page-numbers, etc.}
  83.  
  84.     BEGIN
  85.     END;
  86.  
  87. {--------------------------------------------------------------------------------------------------}
  88. {$S MAPrintingRes}
  89.  
  90. PROCEDURE TPrintHandler.DrawPageBreak(vhs: VHSelect; whichBreak: INTEGER; loc: VCoordinate;
  91.                                       automatic: BOOLEAN);
  92.  
  93.     BEGIN
  94.     END;
  95.  
  96. {--------------------------------------------------------------------------------------------------}
  97. {$S MAPrintingRes}
  98.  
  99. PROCEDURE TPrintHandler.FocusOnInterior;
  100.  
  101.     BEGIN
  102.     END;
  103.  
  104. {--------------------------------------------------------------------------------------------------}
  105. {$S MAInspector}
  106.  
  107. PROCEDURE TPrintHandler.GetInspectorName(VAR inspectorName: Str255); OVERRIDE;
  108.  
  109.     VAR
  110.         hexString:            Str255;
  111.  
  112.     BEGIN
  113.     IF SELF = gNullPrintHandler THEN
  114.         inspectorName := 'gNullPrintHandler'
  115.     ELSE IF SELF = gPrintHandler THEN
  116.         inspectorName := 'gPrintHandler'
  117.     ELSE IF IsObject(fView) THEN
  118.         BEGIN
  119.         PointerToHex(fView, hexString, 8);
  120.         inspectorName := CONCAT('for view ', hexString);
  121.         END;
  122.     END;
  123.  
  124. {--------------------------------------------------------------------------------------------------}
  125. {$S MANever}
  126.  
  127. PROCEDURE TPrintHandler.LocatePageInterior(pageNumber: INTEGER; VAR loc: Point);
  128.  
  129.     BEGIN
  130.     END;
  131.  
  132. {--------------------------------------------------------------------------------------------------}
  133. {$S MANever}
  134.  
  135. FUNCTION TPrintHandler.MaxPageNumber: INTEGER;
  136.  
  137.     BEGIN
  138.     MaxPageNumber := 0;
  139.     END;
  140.  
  141. {--------------------------------------------------------------------------------------------------}
  142. {$S MAPrint}
  143.  
  144. FUNCTION TPrintHandler.Print(itsCmdNumber: CmdNumber; VAR proceed: BOOLEAN): TCommand;
  145.  
  146.     BEGIN
  147.     proceed := TRUE;
  148.     Print := NIL;
  149.     END;
  150.  
  151. {--------------------------------------------------------------------------------------------------}
  152. {$S MANonRes}
  153.  
  154. PROCEDURE TPrintHandler.PrinterChanged;
  155.  
  156.     BEGIN
  157.     END;
  158.  
  159. {--------------------------------------------------------------------------------------------------}
  160. {$S MAFinder}                                            {??? Signal error ???}
  161.  
  162. FUNCTION TPrintHandler.SetupForFinder: BOOLEAN;
  163.  
  164.     BEGIN
  165.     {$IFC qDebug}
  166.     WriteLn('SetupForFinder called for a view that can''t');
  167.     {$ENDC}
  168.     SetupForFinder := FALSE;
  169.     END;
  170.  
  171. {--------------------------------------------------------------------------------------------------}
  172. {$S MANever}
  173.  
  174. PROCEDURE TPrintHandler.RedoPageBreaks;
  175.  
  176.     BEGIN
  177.     END;
  178.  
  179. {--------------------------------------------------------------------------------------------------}
  180. {$S MAPrintingRes}
  181.  
  182. PROCEDURE TPrintHandler.Reset;
  183.  
  184.     BEGIN
  185.     END;
  186.  
  187. {--------------------------------------------------------------------------------------------------}
  188. {$S PrintOpen}
  189.  
  190. PROCEDURE TPrintHandler.SetDefaultPrintInfo;
  191. { Meant to be overridden in a subclass that really prints }
  192.  
  193.     BEGIN
  194.     END;
  195.  
  196. {--------------------------------------------------------------------------------------------------}
  197. {$S MANever}
  198.  
  199. PROCEDURE TPrintHandler.SetPageInterior(pageNumber: INTEGER);
  200.  
  201.     BEGIN
  202.     END;
  203.  
  204. {--------------------------------------------------------------------------------------------------}
  205. {$S MANever}
  206.  
  207. PROCEDURE TPrintHandler.SetPageOffset(coord: VPoint);
  208.  
  209.     BEGIN
  210.     END;
  211.